home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / host contacted / imengv3.41p2.lha / ImEngV3.41p2 / Extra / ADPro / IE_Export.adpro < prev    next >
Text File  |  1997-01-09  |  1KB  |  79 lines
  1. /*
  2. ** $VER: IE_Export 1.11 (9/1 1997 Stockholm/Sweden)
  3. **
  4. ** Copyright © 1997 by Patrik M Nydensten
  5. **
  6. ** This arexx script will export the current 24bit image data
  7. ** in ADPro to ImageEngineer. Both programs must be running at
  8. ** the same time.
  9. ** This script requires ADPro v2.5.0 (or higher)
  10. ** and ImageEngineer 3.0 (or higher).
  11. **
  12. */
  13.  
  14. OPTIONS RESULTS
  15. SAVE_DEFAULTS 't:TempDefaults.adpro'
  16. TEMP_FILE = 't:Image_from_ADPro'
  17.  
  18. NL = '0A'X
  19. SQ = '27'X
  20. DQ = '22'X
  21. TRUE  = 1
  22. FALSE = 0
  23.  
  24. /* Main code */
  25.  
  26. IF ~SHOW(PORTS,'IMAGEENGINEER') THEN DO
  27.      OKAY1 'Could not locate IE'x2c(27)'s arexx port!'
  28.     CALL ErrorOut 10
  29. END
  30.  
  31. ADDRESS "ADPro"
  32.  
  33. CALL "FREDSCRIPTS:FREDFunctions/CheckForRawImageData" TRUE
  34. IF (RESULT ~= 0) THEN    CALL ErrorOut 10
  35.  
  36. SAVER "IFF" TEMP_FILE "RAW"
  37. IF (RC ~= 0) THEN DO
  38.     ADPRO_TO_FRONT
  39.     OKAY1 'Error when saving image from ADPro!'
  40.     CALL ErrorOut 10
  41. END
  42.  
  43. ADDRESS 'IMAGEENGINEER'
  44.  
  45. 'IE_TO_FRONT'
  46.  
  47. 'OPEN' TEMP_FILE 'COLOUR'
  48. IF (RC ~= 0) THEN DO
  49.   ADDRESS "ADPro"
  50.      ADPRO_TO_FRONT
  51.      OKAY1 'Error when loading image into IE!'
  52.     CALL ErrorOut 10
  53. END
  54. NEW_IMAGE = RESULT
  55.  
  56. CALL ErrorOut 0
  57.  
  58. /* Errorout procedure */
  59.  
  60. ErrorOut:
  61.     PARSE ARG ExitCode
  62.  
  63.     IF (EXISTS( SAVE_DEFAULTS )) THEN DO
  64.     ADDRESS "ADPro"
  65.         LOAD_DEFAULTS SAVE_DEFAULTS
  66.         IF (RC ~= 0) THEN DO
  67.             ADPRO_TO_FRONT
  68.             OKAY1 "Error restoring settings."
  69.         END
  70.  
  71.         ADDRESS COMMAND "Delete >NIL:" SAVE_DEFAULTS
  72.     END
  73.  
  74.     IF (EXISTS( TEMP_FILE )) THEN DO
  75.       ADDRESS COMMAND "Delete >NIL:" TEMP_FILE
  76.   END
  77.   
  78.     EXIT ExitCode
  79.